REPORT ZCLASS AND INTERFACES. 


PARAMETERS p land1 TYPE land1 gp. 


INTERFACE LIF DATA. 
METHODS : GET DATA IMPORTING CNTRY KEY TYPE LAND1 GP, 
DOWNLOAD DATA, 
DISP DATA. 
ENDINTERFACE. 


CLASS LCL CUSTOMER DEFINITION. 
PUBLIC SECTION. 
INTERFACES: LIF DATA. 
ALIASES: GET DATA FOR LIF DATA-—GET DATA, 
DISP DATA FOR LIF DATA-DISP DATA, 
DOWNLOAD DATA FOR 
LIF DATA-DOWNLOAD DATA. 


PROTECTED SECTION. 

DATA: IT KNA1 TYPE TABLE OF KNAL. 

DATA WA KNA1 TYPE KNAL. 
ENDCLASS. 


CLASS LCL CUSTOMER IMPLEMENTATION. 


method GET DATA. 
Select * into table it knal from knal where land1 = 


cntry key. 
endmethod. 


Method DISP DATA. 
IF IT KNAL IS NOT INITIAL. 
LOOP AT it knal into wa knal. 
write :/ sy-tabix, wa knal-KUNNR, wa knal-namel, 
wa knal-land1. 
ENDLOOP. 
ELSE. 
WRITE :/ 'NO DATA FOUND IN CUSRTOMER'S DISP DATA' 
COLOR 7. 
ENDIF. 
endmethod. 


METHOD DOWNLOAD DATA. 
CALL FUNCTION 'GUI DOWNLOAD' 


EXPORTING 
FILENAME = 'D:/CLASSES/EXAMPLE.TXT' 
TABLES 
DATA_TAB = |T KNA1. 
ENDMETHOD. 


ENDCLASS. 


CLASS LCL SALES DEFINITION INHERITING FROM LCL CUSTOMER. 


PUBLIC SECTION. 
Methods: GET HEADER DATA, 
display header data, 
DISP DATA REDEFINITION. 


PRIVATE SECTION. 
TYPES:BEGIN OF ty vbak, 
kunnr type kunnr, 

vbeln type vbeln va, 

erdat TYPE erdat, 

netwr TYPE netwr ak, 
END OF ty vbak. 


data: 
IT VBAK TYPE TABLE OF ty vbak , 
WA VBAK type TY VBAK . 
ENDCLASS. 


CLASS LCL SALES IMPLEMENTATION. 


method DISP DATA. 

WRITE :/ 'sub class's disp data method". 
DATA : lv lines TYPE l,wa knal TYPE knal. 
uline. 

LOOP AT it knal into wa knal. 

WRITE :/ sy-tabix , sy-vline, wa knal-kunnr COLOR 2, sy-vline, 
wa knal-namel COLOR 3, sy-vline, wa knal-landi COLOR 5, sy- 
vline. 

ENDLOOP. 
ULINE. 
endmethod. 


method GET HEADER DATA. 
Select kunnr vbeln erdat netwr FROM VBAK INTO TABLE 
IT VBAK 
FOR ALL ENTRIES IN IT KNA1 WHERE KUNNR = IT KNAI1- 
KUNNR. 
endmethod. 


method DISPLAY HEADER DATA. 
IF IT VBAK IS NOT INITIAL . 
ULINE. 
LOOP AT IT VBAK INTO WA VBAK. 

WRITE :/ WA VBAK-KUNNR COLOR 2, SY-VLINE, WA VBAK- 
VBELN COLOR 3, SY-VLINE,WA VBAK-ERDAT COLOR 4, SY- 
VLINE,WA VBAK-NETWR COLOR 7,SY-VLINE. 

ENDLOOP. 
ULINE. 
ELSE. 
WRITE / 'SORRY .. NO DATA FOUND IN HEADER' COLOR 4. 
ENDIF. 
endmethod. 


ENDCLASS. 


DATA O1 TYPE REF TO LCL SALES. 
START-OF-SELECTION. 
CREATE OBJECT OL. 


CALL METHOD O1->GET DATA EXPORTING CNTRY KEY = 
P LANDI. 

*CALL METHOD O1--lif data- DISP. DATA. 

CALL METHOD O1->DISP DATA. " both will call local one 


CALL METHOD O1->DOWNLOAD DATA. 


CALL METHOD O1--GET HEADER DATA. 
CALL METHOD O1->DISPLAY HEADER DATA 


